home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 04 - 05 (1991)(MindCraft Publishing)[no boot].zip / Nibble Volume 12, No. 04 - 05 (1991)(MindCraft Publishing)[no boot].po / NIBBLE.1991:MAY.VOL12.NO05 / LOGRMAY91.bas < prev    next >
BASIC Source File  |  1996-12-24  |  393b  |  2 lines
  1. 1  READ A$: DEF  FN R(X) =  INT( RND(1) *X +1): GR : DIM X(47),Y(47): FOR T = 1 TO  LEN(A$)  STEP 2:X(T/2) =  ASC( MID$ (A$,T,1)) -32:Y(T/2) =  ASC( MID$ (A$,T +1,1)) -32: NEXT : FOR T = 0 TO 2000: COLOR=  FN R(15):W =  FN R(47) -1: PLOT X(W),Y(W): NEXT 
  2. 2  DATA ")2)3)4)5*2+3+4+5-5-4-2/5/4/3/2/1/0021314053534333231304253544575747372717095:5;5949392:2;2;3:4": REM *** KEVIN FU & BEN MARTY ***